打开、保存和关闭图形 | 您所在的位置:网站首页 › wps拆分单元格怎么弄 一分为三 › 打开、保存和关闭图形 |
previous page
next page
控制 AutoCAD 环境
控制 AutoCAD 环境
设置 AutoCAD 系统配置
ActiveX/VBA 开发人员手册 > 控制 AutoCAD 环境 >
打开、保存和关闭图形
通过 Documents 集合和 Document 对象可以访问 AutoCAD® 文件功能。 要创建新图形或打开现有图形,请使用 Documents 集合中的方法。Add 方法用于创建新图形并将此图形添加到 Documents 集合中。Open 方法用于打开现有图形。Documents 集合中的 Close 方法用于关闭 AutoCAD 任务中所有打开的图形。 Save 和 SaveAs 方法用于保存图形。有时候用户希望检查活动图形中是否存在未保存的更改。在退出 AutoCAD 任务或创建新图形之前,应当进行这样的检查。使用 Saved 特性可以确保当前图形中不包含任何未保存的更改。 要输入和输出图形,请使用 Document 对象的 Import 和 Export 方法。 打开现有图形 本例使用 Open 方法打开一个现有图形。并使用 VBA 中的 Dir 函数在打开文件之前检查该文件是否存在。用户应当更改图形文件的名称或路径,以指定用户的系统中的现有 AutoCAD 图形文件。 Sub Ch3_OpenDrawing() Dim dwgName As String dwgName = "c:\campus.dwg" If Dir(dwgName) "" Then ThisDrawing.Application.Documents.Open dwgName 否则 MsgBox "File " & dwgName & " does not exist." End If End Sub创建新图形 本例使用 Add 方法根据默认模板创建新图形。 Sub Ch3_NewDrawing() Dim docObj As AcadDocument Set docObj = ThisDrawing.Application.Documents.Add End Sub保存活动的图形 本样例首先用其当前名称保存活动图形,然后再用新名称保存该图形。 Sub Ch3_SaveActiveDrawing() ' 用当前名称保存活动的图形 ThisDrawing.Save ' 用新名称保存活动的图形 ThisDrawing.SaveAs "MyDrawing.dwg" End Sub测试图形中是否存在未保存的更改 本例检查是否存在未保存的更改,并验证用户是否选择“确定”以保存图形(如果没有选择“确定”,跳至结尾处)。如果用户选择“确定”,将使用 Save 方法保存当前图形,如下所示: Sub Ch3_TestIfSaved() If Not (ThisDrawing.Saved) Then If MsgBox("Do you wish to save this drawing?", _ vbYesNo) = vbYes Then ThisDrawing.Save End If End If End Sub 请将关于此页的评论发送给我们 |
CopyRight 2018-2019 实验室设备网 版权所有 |